DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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GG EE TT KK KK EE YY YY NN NN AA AA MMMM MMMM 
GG EE TT KK KK EE YY YY NN NN AA AA 
GG EE TT KK KK EE YY YY NNNN NN AA AA MM MM MM 
GG EE TT K K EE 7 6 NNNN NN AA AB 
GG EEEEEEEE TT KKKKKK EEEEEEEE YY NN NN NN AA Aa 
GG EEEEEEEE TT KKKKKK EEEEEEEE YY NN NN NN AA AA MM MM 
GG GGGGGG EE TT KK EE YY NN NNNN AAAAAAAAAA MM MM 
GG GGGGGG EE TT KK KK EE YY NN NNNN AAAAAAAAAA MM MM 
GG GG EE TT KK KK EE YY NN NN AA AA MM MM eeee 
GG GG EE TT KK KK EE YY NN NN AA AA MM MM eeee 
GGGGGG EEEEEEEEEE TT KK KK EEEEEEEEEE YY NN NN AA AA MM MM eoee 
GGGGGG EEEEEEEEEE TT KK KK EEEEEEEEEE YY NN NN AA AA MM MM cove 
LL III! SSSSSSSS 
LL Hii! SSSSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] $$ 
LLLLLLLLLL 11111] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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-TITLE GET_KEY_NAME = Key translation utility procedures 
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| euumnenndoddouteusenenseunetenbunnneenewserennenrbenestaesesuensenetseoneses 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE iS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 ACCORDANCE WITH THE TERMS oF SUCH atte > at Le 


N T OTICE. SOFT 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE gt rite 7 IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; PARRA AAASLASALALAASALALALALAARSEEA SELES EE ESLER ERE REESE EEE R ERASER ER RRS E LES 
"FACILITY: DCL 
ABSTRACT: 
Routines to: 
Convert terminator sequences to key names 
Validate a key name 
ENVIRONMENT: Runs at any access mode, AST Reentrant 


AUTHOR: Steven B. Lionel, CREATION DATE: 24-Feb-1983 


SOOOCOCCOCOOCOCOSOSOSSOCSOSOSOOSOOOOOOOOOOOOSOO 


MODIFIED BY: 
1-004 - eyasery Harold Schultz 05-Jul-1984 
Change order in KEY_NAME_LIST to fix HWS0060. 
1-003 - HWwS0060 Harold Schultz 18-Apr-1984 


Change the common key name for the left VT2xx key pad from 
FIND = NEXT_SCREEN to E1 = E6. 


1-002 - $0 100 Steve Lionel 29-July-1983 
d £1 - £6 as synonyms for editing keys. 


1-001 = Original. SBL 24-Feb-1983 


SOooooooooooooooooooooooooooooooooooooooooooOooOoOooOooOooOOooO 
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utility procedures 


15-SEP=1984 23:49:09 YAX/VMS Macro_V04-00 
tSEb=1986 S3:c0:43 EDCLYSRCIGETREYNAMCRAR; 1 


-SBTTL DECLARATIONS 


LIBRARY MACRO CALLS: 
SSMGDEF 

EXTERNAL DECLARATIONS: 
-DSABL GBL 

MACROS: 
NONE 

EQUATED SYMBOLS: 


K_CTRLZ = 26 
KIESC = 27 
K7SS3 = 143 
K7CS1 = 155 
: OWN STORAGE: 
NONE 


; PSECT DECLARATIONS: 


.PSECT _SMGSCODE 


; Get terminator codes 


: Force all external symbols to be declared 


PIC, USR, CON, REL, ich. SHR, @ 


EXE, RD, NOWRT, LONG 
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Terminator definitions 4-SEP-1984 DCL.SR cle ETKEYNAM. MAR; 1 
1 -SBTTL Terminator definitions 
5¢ 
3¢ ; Define macros for table generation 
9 eo 
3 -MACRO TERM SEQ, NAME 
38 ASCII 
9 -BYTE | SMGSK_TRM_'NAME'-128 
4 190 .ENDM 
0 1 ; -MACRO TERM2 SEQ, NAME 
000 10% ASCH Se 
000 105 “BYTE | SMGSK_TRM_'NAME'-128 
6000 109 — 
000 108 -MACRO TERMS SEQ, NAME 
0900 109 ASCII SEQ 
i a 
0000 11 “BYTE SMGSK_TRM_"NAME'=128 
0000 118 .ENDM pint. 
3) 
2093 19 i Terminators of the form <ESC>x 
0000 119 ESC_1BYTE: 
44 120 TERM1 “"a’’, UP 
000 121 TERM *‘B'’, DOWN 
Babe 1 § TERMI "*c'', RIGHT 
bbe 1 TERMI D'', LEFT 
00 124 TERM “7 os Te 
OOA \¢3 TERM! ee prs 
00C 126 TERM1 = ="'R'', PF 
443 127 TERM1 **S'', PFS 
00 sit 128 -BYTE 0 
gy 
tt : Terminators of the form <CSI>x or <SS3>x 
011. 133 ° 
11 134 CSI_1BYTE: 
11 135 TERMI “"a'’, UP 
1 1 $ TERMI *"B’’, DOWN 
1 1 TERMI "*c'*, RIGHT 
1 1 3 TERMI *D'', LEFT 
19 1 TERMI “wm, ENTER 
18 140 TERMI “*p'*,) PFI 
10 141 TERMI * we prs 
1F 146 TERM "R'', PF 
1 14 TERMI **S**, PEG 
144 TERMI “"L"") COMMA 
145 TERMI “‘a’’, MINUS 
146 TERM **n'*, PERIOD 
9 14 TERMI **p’*, KPO 


rae 


Be S3:c0ic8 EDEL SRCTGE TREYNAN- MAR: 1 


on 


ze 


ons 
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Term 


GFT .K Y_NAME 


3 End of List 
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SonenumMm so OOO 
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HOMN TN OF- OO 
aaaaaaaaa 
nf af Oe Oe Oe Oe Oe Oe 
eee eee ess 


ese @e © se 8 8&8 & & & & & & & 


q 
r 
5g 
t 
u 
v 
wi 
x 
y 
; Terminators of the form <CSI>n~ 
ly 
5 
6 
3; Terminators of the form <CSI>nn~ 
3BYTE: 


+ 
CsI. 
3+ 
CSI_ 
NULL: 


DRO K— CIM TN OR. DHOK— CIM TM DPR. DHOOM MUM TN OR. ODO CUM TNOR. ODOR CUM 
FTMOMMNNNUNNAUINOODODOOOOOOOR- PA PPP_AP_PR. WOOD COG AO GCOD COA AAO 


OOOO ae 


OOe KON. COO WWW WWW TR ZOO CUNICUCUICUR. VO O <uwOowmraoao-— 
Sl ell ll lll ll ll ll ll ll el Ll ll Ll ee ee mo AL AL AL AL AL Al alalalal =} =] RKR. DOODOOO 
COOCOCCOCOCOOOOCOSOOOSOSCOSOSSOSOOSSOSOSSSOOSOSOSOSSOSOOSOSOSOSOSSooSSoSo 
SOOCOCOCOOCOCOOOOOSOSOSOCSOSOSOSOCOSOSSOSOOSOSSSSSOSOSOOSOSOOOSOOOSSoO 


So [=] 
oO So 
[=] 
oO 


00000000 
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“} ! sie -SBTTL GET_KEY_NAME = Translate terminator to key name 

“i ! ; FUNCTIONAL DESCRIPTION: 

“I 1 GET_KEY_NAME translates a terminator sequence to a key name. 

a CALLING SEQUENCE: 

Al 3 ret_status = GET _KEY_NAME (terminator.rt.r, term_length.rl.v, 

A ; Key_fiame_addr.wa.r) 

a : FORMAL PARAMETERS: 
00000004 ee terminator = 4 ; The terminator string, passed by reference. 
00000008 00A1 term_length = 8 ; The Length of the terminator string, passed 

1 ; by immediate value. 


12 A longword into which is placed the address 
of a counted ASCII otcing contesnsng the 
ou n 


key name. If no ney is nd, a pointer 
s 


Al 
0000000C BpAy key_name_addr 


32 
$3 
35 
0 
4 
‘ 
8 
09 
10 
V 
13 
13 
OA1 1 to an empty strin stored. 
OA1 i$ : ° 
QOA1 18 ; IMPLICIT INPUTS: 
OA1 19 ; 
OA1 0; NONE 
Q0A1 J 
00A1 § ; IMPLICIT OUTPUTS: 
00A1 ; 
00A1 4; NONE 
QOA1 5: 
Q0A1 6 ; COMPLETION STATUS: 
00A1 a? 3 
00A1 8; 1 - Translation successful 
QOA1 9; 0 - Translation unsuccessful 
00A1 o 3 
QOA1 31 ; SIDE EFFECTS: 
00A1 3 3 
Q0A1 3 NONE 
0A1 4; 
\ rs 
000C Boat 7 eENTRY GET_KEY_NAME, “M<R2,R3> 
7D Dons 3 MOVQ terminator(AP), R2 : Get terminator address and length 
A 40 : into R2 and R3 
c3 A7 41 SUBL3 #2, R3, RO : Is length within bounds? 
19 O0AB 4g BLSS  NOTRANS : If not, no translation 
D1 OOAD 4 CMPL R 3: Must be between 2 and 5 chars 
1A 008 44 BGTRU NOTRANS : No translation 
9A 6B 46 MOVZBL (R2)+, R1 3; Get first character 
91 4 CMPB R1, #K_ESC 3; Is the first character <ESC>? 
13 48 BNEQ wNOf_Est : Skip if not 
3 A 4 ECL 3; Look at next character 
A C 50 MOVZBL (R2)¢+, RA ; 
Gi F 51 CMPB R1, #*a/C/ 3; <ESC>L is the same as <CSI> 
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9542000 GET KEY NAME - Translate term nator to k Pat 33308:93 LOL SRCIGETREYNAM-MAR: 1 - (4) 
. 2 C BEQL USE_CSI 3; Skip if it is 
4F 8F | $4 ft} ; CMPB R1, #*A/0/ : <ESC>O is the same as <SS3> 
1 C9 4 BEQL —ruSE_SS3 : Skip if it is 
3F 1 91 cB 5 CMPB R1, #°A/2/ 3; <ESC>? is <SS3> on VT52s 
2 13 00¢ BEQL USE_SS3 : Skip if it is 
D 
D 3+ 
OD 35 3 We get here if the character following <ESC> does not make it <CSI> 
+4 $9 ; or <SS3>. It must then be a single character to look up in ESC_1BYTE. 
D 62° 
53 D7 3 e§ DECL 3 Look at next character 
we te D 4 BNEQ NOTRANS ; If not now zero, no translation 
50 FF28 CF 43 Bee 65 MOVAB W**ESC_IBYTE, RO 3; Get table address 
52 a. 2 D9 28 MOVL R1, R 3 Load R2 with character 
2 11 00DC 6 BRB SEARCH_1BYTE ; Skip to table search code 
oe 
ODE 0 ; We get here if the first character was not <ESC>. Check for <CSI> or <SS5>. 
OODE 71 
OODE 272° 
itd ig NOT_ESC: 
98 8F 51 9) +43 74 CMPB R1, #K_CSI 3 Is it <CSI>? 
1D 13 OO€ 75 BEQL USE_CST : Skip if it is 
SF 8F 51 +) | 0E4 a6 CMPB R1, #K_SS3 3 Is it <S$3>? 
08 13 OOE8 27 BEQL USE_SS3 : Skip if it is 
St Ste 
ape + 3; We get here if the terminator has no translation 
OOEA 282° 
QOEA HE NOTRANS: 
Oc BC BO AF 9E OQOEA 84 MOVAB B*NULL, @key_name_addr(AP) ; Return address of null string 
50 D4 OOEF : CLRL RO 3; Return failure 
04 Boe. § 3 
ee 
3 e terminator starts with < >. 
OF 3 Th i ith <S$3 
Bet 
OF 38 USE_SS3: 
02 53 Oo! F 9 CMPL R3, #2 ; There must be only 1 character 
F 94 : following <SS$3>. 
2 ce 95 BNEQ NOTRANS : No translation if not 1 character 
50 FFI6 CF 9€ F 38 MOVAB W*CSI_IBYTE, RO ; Use same table as <CSI>. 
52 62 QA FC 2 MOVZBL (R 3 Load R2 with character 
3; Use next byte only 
OF 11 OOFF BRB SEARCH_1BYTE U t byte onl 
1 i. 
1 Bs 3; The terminator starts with <CSI>. 
1 308 
1 4 USE_CSI: 
03 53 ~«O~OD1 1 5 CMPL R3, #3 3; Are there 1, 2 or >=3 characters 
4 Q : after <CSI>? 
—E 14 4 BGTR SEARCH_ 3B" = 3; >=5 more bytes 
6 13 6 8 BEQL SEARCH_2BY. ; 2 more bytes 
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50 FFOS CF E MOVAB wW*CSI_IBYTE, RO 3 7 byt 
52 6 3k MOVZBL tRSy RS 3 Load R2 vith character 
+ 


Use only the next byte to determine the key. RO has been loaded with the 
table address and R2 is the byte to Look at. 


S 


EARCH_1BYTE: 
MOVZBL 


51 80 7.) Zz (RO)+, R1 : Get byte to compare against 
13 EQL NOTRA ; End of table? 
52 1 % CMPB R1, R ; Compare character 
a= % BEQL FOUND 3: End if found 
8 D6 INCL RO : Skip over key code 
F 11 BRB SEARCH_1BYTE ; Repeat until found or table end 
ge 
; Use the next two bytes to determine the key. (R2) is the word to look at. 
SEARCH_2BYTE: 
50 FFIC CF 9 MOVAB W*CSI_2BYTE, RO ; Get table address 
¢ MOVZWL (R2), R2 ; Get two bytes from terminator 
§ 10$: MOVZWL (RO)+, R1 ; Get two artes to compare against 
yea BEQL NOTRANS : End of table? 
52 1 #61 CMPW R1, R2 3; Compare characters 
4 13 BEQL FOUND 3 End if found 
8 D6 RO 3 Skip over key code 
F 11 BRB 10$ 3; Repeat until found or table end 


a 


Use the next two bytes to determine the key. (R2) starts the bytes 
£9 look at. Note that table CSI_3BYTE uses longword entries with the 


; high byte zero. 


SEARCH_3BYTE: 
CMPL R3, #4 ; More than 3 bytes after <CSI>? 
BGTR NOTRANS 3 No translation if so 
MOVAB W*CSI_3BYTE, RO 3; Get table address 
EXTZV #0, #24, (R2), R2 : Get next three bytes 
10$: MOVL (ROD+, RI : Get four bytes to compare against 
BEQL 15$ 3; End of table? 
CMPL Ri, R2 3; Compare characters 
BEQL ae 3; End if found 
INCL R 3: Skip over key code 
BRB 10$ 3; Repeat until found or table end 


15$: BRW NOTRANS 


3¢ 
; Translation found. Find the name of this key and return success. 
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64°AF 0116°8F 60 3a LOCC (RO), #KEY_NAME_LIST_LEN, B*KEY_NAME_LIST ; Find key name 
oc ec «(CO MOVAB 1(R15, akey_name_addr (APS ; Store key name address 
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-SBTTL List of key names 


ist of all possible key names whose codes are in 
This excludes control 


he format of this List is: 


This format depends on knowing that no key names with codes higher than 
3 ar: defined, that no character between 128 and 255 can 
n key names, and that the maximum Length of a key name is <32. 


This List is used in two ways: 

1 To look up a key name (either to see if it is valid or to 
nding code), do a MATCHC of the ASCIC ke 
The byte preceding the found entry 


et the corres 
nto KEY_NAME_ 
key code minus 


~ 
° 


To convert a key code into a name, do a LOCC of the key code into 


KEY_NAME_LIST. The ASCIC key name follows the found entry. 


+> 


Create macro to add an entry to the List. 


-MACRO KEY_ENTRY NAME 
E <SMGSK_TRM_'NAME® = 128> 
/NAME / 


reer i, 


Be 33:20:03 EDC(YSacTGETReEYNAM: RAR: 1 


N 6 
res 
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List of key names 


Q@ 
at 
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onKwum ys OOO 2u 


Del a Ol Oe Oe Oe Oa Oe Oe Oe ne OO Oe On Oa Oa Oe Oa Oe Oa Oe Oa Oe 


KEY_NAME_LIST_LEN = .-KEY_NAME_LIST 
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you20007 VALIDATE REY NAME - "See Tf hog cone is v caSePe1904 S8:4Ocee COR eS fae e Oe Oo aRst ( 
tA +28 % ~SBTTL VALIDATE_KEY_NAME = See if key name is valid 
fA 438 ; FUNCTIONAL DESCRIPTION: 
cA 460 : VALIDATE_KEY_NAME verifies a key name to see if it is valid. 
0 oA 46¢ ! CALLING SEQUENCE: 
O27A 464: ret_status.wlc.v = VALIDATE_KEY_NAME (key_name.rt.ds) 
B55n eee | 
6 cA 467 ; FORMAL PARAMETERS: 
00000004 027A 469 ° key_name = 4 ; The descriptor of a string 
27A = 470 a 3 containing the name of the key to look up. It 
O57 471 ; is assumed that the string has been upcased and 
OSoA 276 3 stripped of trailing blanks. 
027A 474 ; IMPLICIT INPUTS: 
027A 475; 
te 
027A 478 : IMPLICIT OUTPUTS: 
ogra 479 : 
Se ES tere 
037A 48¢ > COMPLETION STATUS: 
027A 484: 1 = Key found 
og7a re # $ 0 - Key not found 
027A 487 ; SIDE EFFECTS: 
027A 488; 
OSA 489 ; NONE 
027A 490; 
a a 
003C O27A 298 eENTRY VALIDATE_KEY_NAME , “M<R2,R3,R4,R5>_ 
50 04 8C 7D O27C 494 MOVQ a@key_mame(AP), RO ; Get descriptor into RO-R1 
50 50 3¢€ 0280 495 MOVZWL RO, RO ; Make Length a tongword 
3 i$ 0283 496 BEQL 10$ ; Exit if zero Leng h 
1F $5 D1 0285 497 CMPL RO, #31 : Exceeds maximum key name Length? 
1—€ 1A 0288 498 BGTRU 108 : If so, exit woth failure 
5E 5 C 0 8A 499 SUBL RO, SP ; Create space for key name on stack 
7E 50 $5 8D 500 MOVB RO, -(SP) : Move lengt 
01 AE 61 50 2 9 01 woes RO, (R1), 1(SP) ; Move ney name 
50 5D 2f cS 38 309 SUBL SP. FP, RO ; Get string length in RO 
FEC2 CF 0116 8F 6E 5 9 33 202 MATCHC RO, (SP), a ie ee 
e% 12 ry} 505 BNEQ 10% : Skip if not found 
01 BY | 208 st #1, RO 3; Return success 
A : 
50 D4 AB 508 10$: CLRL RO 3; Return failure 
04 AA 509 RET 
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GET_KEY_NAME = Key translation utility procedures % “SEP-1 38% $3: 249: $08 riot? Macro V04-00 Page 14 
Psett synopsis 4-5 Ep=19 4 25:40:4 DCL.SRCIGETKEYNAM.MAR; 1 (7) 

Geeoeeoeeeooeeececon$ 

: Psect synopsis ! 

wees ceweconce aa as} 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 <( -) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 < -») O17 ¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE AD WRT NOVEC BYTE 
_SMGSCODE 000002AB ( 683.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

dome ar se noew ean nme nme eam dy 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 14 00:00:00.04 00:00:01.77 
zonnene processing 136 00:00: e- 4 00:00: 07-20 
s 1 15 Bo BR: 97 00: ++ 15.08 
Synbol table sort 0 00:00:00.25 0:00: 109.28 
s2 84 80:60:00" 5 0:00: Ref 

Se ebot table output 8 00:00:00.09 0:00:00.57 
Psect synopsis output es Bh 3 0:00:00.02 
Cross-reference output 88: Bo ba7% 00:00: +98 00 
Assembler run totals 39 00:00:06.36 00:00:30.17 


e working set Limit was 1050 pages. 
31074 bytes (42 pages) of virtual memory were used to buffer the intermediate fee. 
There were 20 pages of symbol table space allocated to hold 228 non-local and 4 local symbols. 
511 source Lines were read in Pass 1, producing 20 object records in Pass 2. 
12 pages of virtual memory were used to define 11 macros. 
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Macro Library name Macros defined 
$255$DUA ® SYStIBISVSOLONLS, MLB; 1 0 
“$255SDUA DCL.OBJ hit? + 8:1 0 
“$255$DUA SYS.OBJJLIB.M LB;1 0 
“$255$DUA 8: SySi IBISTARLET. MLB; 2 4 
TOTALS (all Libraries) 4 


262 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:GETKE YNAM/OBJ=OBJ$:GETKEYNAM MSRC$:GETKEYNAM/UPDATE=(ENH$ : GE TKE YNAM) +E XECML$/LIB+LIB$:DCL/LIB*+SYSS$LIBRARY:SYSBLOMLB/L | 
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